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MODULE flgsem ( {DENT *v04-000' 
BLISS32C, ADDRESSING_MODE (EXTERNAL = _LONG_RELATIVE 
, NONEXTERNAL = LONG-RELATIVES] 
= 
BEGIN 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. CORPORAT ox NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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ie SOFTWARE ON EQUIPMENT WHICH | 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


! ABSTRACT: 


Processes the .ENABLE OBER TRING, -BOLDING, .1 
-OVERSTRIKING commands, and the .DISABLE UNDERL 
INDEXING, and OVERSTRIKING comm 


i 

] 

! N 
: I 
i ands. 

It also processes .ENABLE TOC and .DISABLE TOC. 
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i ENVIRONMENT: Transportable 
i AUTHOR: R.W. Friday CREATION DATE: May, 1978 
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SBTTL ‘Revision History’ 
MODIFIED BY: 
003 REROOO003 Ron Randall 07-Mar-1983 


Giobal edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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EXTERNAL 
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-Sep-1 AX-11 Bliss-32 V4.0-74 
Module Level Declarations 1S-s¢ at 7 90°88 RUNOFF .SR ROIF FLGSEM.BLI; 
] ZSBITL ‘Module Level Declarations’ 
1! 
: } TABLE OF CONTENTS: 
: ! INCLUDE FILES: 
§ 1 LIBRARY 'NXPORT: XPORT" ; ' XPORT Library 
Z : REQUIRE ‘REQ:RNODEF'; ' RUNOFF vertant definitions 
5 1 IF DSRPL US XTHEN 
$ : ,0RaRy TREQTDPLL IB"; ! DSRPLUS BLISS Library 
8 : 4 eek *REQ:DSRLIB'; ! DSR BLISS Library 
0 1 
2) ee 
¢ 1 
1 
4 1 
5 4 
6 1 
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BEGIN 
'The bag i macro definition is to be removed after a few 
‘versions of th 
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e new RUNOFF have gone out the door. 
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f 
MACRO XXXX(X) 
BEGIN 
EXTERNAL ROUTINE ERM; 
EXTERNAL ROUTINE ERMA; 
EXTERNAL LITERAL 


RNFMD1, 
RNF STR; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
ERMC(RNFMD1, 
CHSPTR 
ZCHARCOUNT (X)); 
ERMA(RNFSTR, FALSE); 
END %; 
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; 09 GLOBAL ROUTINE FLGSEM (HANDLER_CODE) : NOVALUE = ; 
'e4 

4 i FUNCTIONAL DESCRIPTION: | é 

8g 1 i FLGSEM turns the semantics associated with a flag ; 
8 1 on and off. : 
ss : It also turns table of contents generation on or off. : 
90 | FORMAL PARAMETERS: | ; 
4 1 HANDLER_CODE indicates which command is to be processed. 
3% IMPLICIT INPUTS: None 
%6 i IMPLICIT OUTPUTS: None | ; 
98 i ROUTINE VALUE: : 
99 i COMPLETION CODES: None : 
01 i SIDE EFFECTS: None ; 
4 l= 3 
0 Py 
04 : 
05 : 


Dt ek ek teh ee he eh nh nh eh ah ah eben 


mr »HANDLER_CODE OF 


CH_ENABLE_BOLDIN) : 
GIN 


SCA_DO_BLD = .GCA_CMD_BLD; 
SCA“WRD_C_BLD = .SCA_BLD AND .GCA_CMD_BLD; 


' | 
CH_HYPHENATION, H_ENABLE_HYPHEN] : 
SCA_DO_HYP = TRUE; 
END; 
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CH_ENABLE UNDERL] : 
SCA_DO_UND = .GCA_CMD_UND; 
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65 BCA WRD.C_UND = .SCA_UND AND .GCA_CMD_UND; 
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CH_ENABLE OVERST) : 
SCA_DO_OVR = .GCA_CMD_OVR; 


N 
t IND = .GCA_CMD_IND; 


CH_DISABLE_BOLDI) : 


A_DO_BLD = FALSE; 
CAWRD_C_BLD = FALSE; 


CH_NO_HYPHENATIO, H_DISABLE_HYPHE] : 
SCA_DC_HYP = FALSE; 
END; 
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CH_OISABLE_UNDERJ : 
SCA_DO_UND = FALSE; 
SCA_WRB_C_UND = FALSE; 
END; 

CH_DISABLE_OVERS) : 
SCA_DO_OVR = FALSE; 

CH_DISABLE_INDEX) : 

BEGIN 
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$08 SCA_DO_IND = FALSE; 
00 SCA-INDEX = FALSE; 
301 END; 
308 
30 CH_ENABLE_TOC) : 
304 BEGIN 
305 'Turn on table of contents collection if user said /BTC 
306 GCA_BTC = .GCA_CMD_BTC 
307 END; 
309 CH_DISABLE_TOC) : 
310 N 
11 GCA_BTC = FALSE 
5 \§ END; 
86 1 
7 14 TES; 
8 15 
9 16 END; ‘End of FLGSEM 
TITLE FLGSEM 
-IDENT \V04-000\ 
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FLGSEM 16-Sep-1984 9: AX=11 Bliss-32 V4.0-74 Pp 7 
be =600 Module Level Declarations 19-8 Sep 71382 9: 63 ‘i RUNOFF ..SRCJFLGSEM.BLI; ons (4) 
6 A 00089 BICB2 #2, SCA+1 : : 0290 ca2 
1C rt} 88 fh B grees § » SCA+196 + 0291 wm 
4 000¢ RET + 0248 ; 7 
16 0 D1 C1 108: CMPL RO #22 + 0294 ; 
4 12 000C4 BNEQ 1 : 3 ¥ 
63 4 Bh C6 B1CB2 #4, SCA+168 ; 0295 : i 
15 : D} CA 11: CMPL #21 + 0297 3 i 
2 CD BNEQ 1 : ; 3 
63 : 8A OOOCF BICcB2 # $64+168 : 0299 ; i), 
2c «AS (4 00 be CLRL © SCA#272 : 0300 a | 
04 D RET : ¢4 ; 
35 50 01 D6 128: CMPL RO, #53 ; 030 3 } 
D 12 D9 BNEQ : . 9 
51 38 AG 1 1 EF DB EXTZV “1.8 GCA+124, R1 : 0306 | 
38 AG 01 0 1 FO O000E1 INSV ¢ 34: #1, GCA+124 : 3 ft, 
04 4 £7 RET 3 0304 don | 
17 50 D1 OOOES 138: CMPL RO, #23 3 0309 3 ft, 
04 12 000E8 BNEQ 4$ : es | 
38 AG 01 8A OED BICB2 #1, GCA+124 3 0311 oe 
04 OOOF1 14$: = RET ; 0316 : | 
; Routine Size: 242 bytes, | Routine Base: $CODES + 0000 i 1 
7 | 
: 190 0317 1 ; % 
> 191 0318 1 END ‘End of module sf 
; 192 0319 0 ELUDOM : 
: 
:$ ¥ 
: ¥ 
3 
; PSECT SUMMARY 
: Name Bytes Attributes 
: $SCODES 242 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Se ee: an i ei Symbols -------- Fages Processing 
; File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBIXPORT.L32; 1 90 252 00:00.1 
: 7$255 Bey BES SRCIDSRLIB.L32;1 1323 43 3 308073 
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; Size: 
; Run 
; Elaps 


; Lines/CPU Min: 
; Lexemes/CPU-Min: 1 


; Memor 
; Compi 
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COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LISS$:FLGSEM/OBJ=OBJ$:FLGSEM MSRC$:FLGSEM/UPDATE=(ENHS$:FLGSEM) 
242 “6 + 0 data bytes 
me: 705.3 
d Time: 219, 
3. 
85 
Used: 63 pages 
ation Complete 
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